home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 17 / MacFormat 17 (Spain) / MacFormat 17.bin / DATABASE / POWER.DIR / 00007.ls < prev    next >
Encoding:
Text File  |  1996-03-14  |  809 b   |  32 lines
  1. on GetFileNames
  2. end
  3.  
  4. on deletecast
  5.   set TheList to [32, 127, 78, 45, 63, 184, 115, 152, 148, 132, 99, 14, 140, 102, 149]
  6.   set times to count(TheList)
  7.   repeat with j = 327 to 934
  8.     set xx to the name of cast j
  9.     if (the castType of cast j <> "#palette") and (xx <> 0) then
  10.       set result to 0
  11.       repeat with i = 1 to times
  12.         set zz to getAt(TheList, i)
  13.         set the itemDelimiter to "-"
  14.         if item 1 of xx = zz then
  15.           set result to 1
  16.           exit repeat
  17.         end if
  18.         set the itemDelimiter to "."
  19.         if item 1 of xx = zz then
  20.           set result to 1
  21.           exit repeat
  22.         end if
  23.         set the itemDelimiter to ","
  24.       end repeat
  25.       if result = 0 then
  26.         put "erase cast" & j
  27.         erase(cast j)
  28.       end if
  29.     end if
  30.   end repeat
  31. end
  32.